home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / IOCONFIG.I < prev    next >
Encoding:
Modula Implementation  |  1989-08-18  |  413 b   |  27 lines
  1. IMPLEMENTATION MODULE IOConfig;
  2.  
  3. FROM SysTypes IMPORT CHARSET;
  4.  
  5. PROCEDURE Wirth;
  6.   BEGIN
  7.     HALT
  8.   END Wirth;
  9.  
  10. PROCEDURE Terminal;
  11.   BEGIN
  12.     HALT
  13.   END Terminal;
  14.  
  15. PROCEDURE Megamax;
  16.   BEGIN
  17.     EchoCR:= FALSE;
  18.     ReadStringByLine:= TRUE;
  19.     WriteLnAfterReadString:= TRUE;
  20.   END Megamax;
  21.  
  22. BEGIN
  23.   Megamax;
  24.   LengthOfBufferedLine:= 80;
  25.   Separators:= CHARSET {0C..' '};
  26. END IOConfig.
  27.